Cream of the Crop 26/Cream of the Crop 26.iso/bbs/shipwk10.zip/SHIPWRK.REF

Text File | 1997-07-19 | 21KB | 911 lines

;Shipwreck IGM

@#ghost
@pauseoff
@SHOW
H


C
H


C 
H


C 
H


C 
H


C 
H


C 
H


C 
H


C║
H


C 
H


C 
H


C 
H


C 
H


C
@end

@do saybar
`7`$Man! Was that a ghost?
@update
@end

@#WATER
@do `p20 random 5 1
@if `p20 is 1 then saybar
`$Hope this doesn't rust the armour.
@if `p20 is 2 then saybar
`$Wonder if there are any sharks in this water?
@if `p20 is 3 then saybar
`$Ewww!!  Some fish went potty in the water.
@if `p20 is 4 then goto shark
@do `p20 is 0
@END

@#SHARK
@fight
;name
Large shark
;string said when you see him
A triangular shaped fin approaches you...
;power move kill string
You shudder at what might have happened.
;sex - 1 is male, 2 is female, 3 is it
3
;weapon and strength for the weapon, up to 5
slaps you with a powerful tail|30
rams into you with its nose|35
grabs your leg and pulls you under|40
slashes your arm with it's teeth|42
NONE|NONE
;defense
25
;gold reward
103
;experience
77
;hit points
80
;if win: ref file|name or NONE
NONE|NONE
;if lose: ref file|name or NONE
GAMETXT.REF|DIE
;if runs: ref file|name or NONE
NONE|NONE

@#lever
@do moveback
@do write
`r1
@clearblock 21 21
@do move 3 21
@do write
`r0  `2There is a lever on the wall.  Pull it? [`0Y`2/`0N`2] :`x
@do readspecial `s01 YN
@if `s01 is Y then goto lever1
@drawmap
@update
@closescript
@end

@#lever1
@DATANEWDAY SHIPWRK.idf
@DATALOAD SHIPWRK.idf &PLAYERNUM `p21
@do moveback
@if `p21 is 1 THEN GOTO LEVERDONE
@pauseoff
@show
H




C█
C▄
C▄▄███
C▄▄▄█
AC
AC

AC
AC█
C▀▀▀█
AC
AC█
C▀▀███
C▀
C█████████
H




C█
C▄
C▄▄███
C▄▄▄█
AC
AC█
C▀▀▀█
AC
AC

AC
AC█
C▀▀███
C▀
C█████████
H




C█
C▄
C▄▄███
C▄▄▄█
AC
AC█
C▀▀▀█
AC
AC

AC
AC█
C▀▀███
C▀
C█████████
H




C█
C▄
C▄▄███
C▄▄▄█
AC
AC█
C▀▀▀█
AC
AC

AC█
C▀▀███
C▀
C█████████
H




C█
C▄
C▄▄███
C▄▄▄█
AC
AC█
C▀▀▀█
AC
AC

C▀▀███
C▀
C█████████
H




C█
C▄
C▄▄███
C▄▄▄█
AC
AC█
C▀▀▀█
AC
AC

C▀▀███
C▀
C█████████
@DATASAVE SHIPWRK.IDF &playernum 1
@DO SAYBAR
`7Out of no where an old man appears to your left.
@closescript
@end

@#WIZARD
@DATANEWDAY SHIPWRK.idf
@DATALOAD SHIPWRK.idf &PLAYERNUM `p21
@do moveback
@if `p21 is 1 THEN GOTO WIZARDTALK
@DO SAYBAR
`$You hear faint noises on the other side of the wall.
@CLOSESCRIPT
@END

@LABEL WIZARDTALK
@SHOW
`r0`c  `%`r1 Talking with the wizard `r0
`\`2  Before you is a rather ancient looking man.  His bearing is rather
  haughty but you figure you could take him with one hand.  Never the less
  you decide you will play it safe.`\
@DATANEWDAY SHIPWRK2.idf
@DATALOAD SHIPWRK2.idf &PLAYERNUM `p23
@DO `v01 is 1
@DO WRITE
`x`x
@CHOICE
Whoaa...who are you and where did you come from
What is the deal with this ship
>`p23 0 Say, can you teleport people
Sorry, I didn't realize anyone was here
@IF RESPONSE IS 1 THEN DO
@BEGIN
@SHOW
`r0`c  `%`r1 Talking with the wizard `r0
`\`\`2  "`0Who am I?  Why I am Larkin.  The most powerful wizard ever.  Master of
  the ancient mysteries.  Mentor to the realms greatest warriors.  Slayer
  of the Red Dragon...

`k`2  By now you realize he is a nut.

`k`0  ... Builder of great empires.`2"  he says.  "`0 How I got here is beyond
  your puny minds ability to comprehend`2."

`k`2  You idly wonder how his superior mind would comprehend a slight
  intrusion by your s&weapon, but let it slide for the moment.

`k
@DO GOTO WIZARDTALK
@END

@IF RESPONSE IS 2 THEN DO
@BEGIN
@DATALOAD SHIPWRK.idf &PLAYERNUM `p21
@SHOW
`r0`c  `%`r1 Talking with the wizard `r0
`\`\`2  "`0This is the merchant vessal PRIDE OF ARRIS.  We were in route to her
  home port of Arrisville when a storm forced us on these rocks`2."

`k`2  "`0Currently the crew is working to repair the damage.  In the meantime
  the captain has set up shop on the upper decks and is doing a little trading
  to offset his loses.  Unfortunately business is brisk and I suspect he is
  delaying the repairs to take advantage of it and delaying me in the process`2."

`k`2  "`$I see.  So, ummm, how do I get up to see the captain`2?"

`k`2  The wizard doesn't look please with your request but closes his eyes in
  concentration.  Somewhere behind you you hear a click.  Larkin points to the
  stairwell...  `L`L`L`L`Land then just disappears as if he never existed.

`k`2  Maybe bashing his head with your s&weapon wouldn't have been such a good
  idea after all.  You are glad you waited.

`k
@datasave shipwrk.idf &playernum 2
@DRAWMAP
@UPDATE
@CLOSESCRIPT
@END

@IF RESPONSE IS 3 THEN GOTO TELEPORT
@END

@END

@IF RESPONSE IS 4 THEN DO
@BEGIN
@DATALOAD SHIPWRK.idf &PLAYERNUM `p21
@SHOW
`r0`c  `%`r1 Talking with the wizard `r0
`\`\`2  The old man does not look amused.  He promptly disappears as if he was
  never there.  Maybe you made the right decision.

`k
@do `p21 is 0
@datasave shipwrk.idf &playernum 0
@DRAWMAP
@UPDATE
@CLOSESCRIPT
@END


@LABEL LEVERDONE
@do saybar
`$You have already pulled the lever.

@#HATCH
@DATANEWDAY SHIPWRK.idf
@DATALOAD SHIPWRK.idf &PLAYERNUM `p21
@if `p21 is 2 THEN GOTO HATCHOPEN
@do moveback
@DO SAYBAR
`$The hatch seems to be locked.
@CLOSESCRIPT
@END

@#HATCHOPEN
@LOADMAP 790
@DO x IS 50
@DO y IS 7
@DRAWMAP
@UPDATE
@closescript
@end

@#SHIPSWHEEL
@DO MOVEBACK
@DO SAYBAR
`%You foolishly spin the ship's wheel and shout "Heave Ho you scurvy dogs".
@DO QUEBAR
`%You feel kind of silly.

@#MAST
@DO SAYBAR
`%Looks like they need to replace this mast.

@#WETBED
@DO SAYBAR
`$Eewwwww.... That isn't sea water.

@#WINDOW
@DO MOVEBACK
@CLEAR SCREEN
@PAUSEOFF
@SHOW
`r1`1
 ╔═════════════════════════════════════╦═══════════════════════
AC═══════════════╗
AC  ║ C.C.C.C
AC. .C.C.
AC ║ C.  . . .C
AC.C. ..C ║
AC  ║   .C.C.C.
AC  .C ║  .C.C
AC.C.C.  .   ║
AC  ║ .C.  .  .
AC. .C   .  .  .C
AC ║   .C.C.C
AC.C. .  .
AC ║
AC  ║  .C.  .C
AC.C.C. ║ C.C
AC. ..C ║
AC  ║ C.C.C.
AC  .C.C. ║ C
AC.C.  .C.  .
AC ║
AC  ║ C..C.  .
AC .C.C.C ║
AC   .C.C.C
AC ║
AC  ║ C.C.  .C
AC.  ..C. ..C
AC ║  ..C...C
AC.C.C.C.C
AC. ║
AC  ║   ..C.  .C
AC.C.C..C. ║
AC  .C..C.C
AC.C.C.C ║
AC  ╠═════════════════════════════════════╬══════════════
AC════════════════════════╣
AC  ║  .C..C.C
AC..C.C.   ║ C
AC.  .C.C.
AC ║
AC  ║ ..C.  .
AC.C...C..C
AC ║   ..  .C..C
AC.C.C. ║
AC  ║  .C.C.C
AC.C.C ║ C
AC.C.C.   ║
AC  ║ C.C.C
AC.C.C.C ║
AC.C.C. .C
AC.C.C.  ║
AC  ║ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
AC ║ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ║
AC
AC  ║ ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
AC ║ ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ║
AC
AC  ║ ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
AC ║ ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓ ║
AC
AC  ║ ███████████████████████████████████
AC ║ ██████████████████████ ████████
AC███ ║
AC  ╚═════════════════════════════════════╩══════════════
AC════════════════════════╝
AC
@END
;@PAUSEON
@SHOW

`r0`!             Strange.  The sun was shinning bright when you came in?!?!?!
@KEY
@DRAWMAP
@UPDATE
@CLOSESCRIPT
@END

@#GUNNER
@DO SAYBAR
`$First Mate: "Don't touch! This one is loaded."

@#CANNON
@DO SAYBAR
`$Sure are a lot of cannons for a merchant vessal.

@#CANNON1
@DO SAYBAR
`$You could rule BoneTown with this.

@#FIREGUN
@DO MOVEBACK
@pauseoff
@SHOW
H



C■
H


C■
C
H

C■
C
H
C■
C
HC■
C
HC
@end

@do saybar
`7`$First Mate: "You're a College s&boy ain't you."
@update
@end

@#FISH
@DO SAYBAR
`$Fresh fish.  Must be someone here.

@#CAPTAIN
@BUSY
@DO MOVEBACK
@SHOW
`\
`r0`c  `%`r1 Talking to the captain `r0
`\`2  From the quality of his clothes you figure this must be the captain.
  He welcomes you with a cheerful hello.

@DO `v01 IS 1
@DO WRITE
`x`x
@CHOICE
So Captain how long you gonna be here
Is the wizard below as powerful as he says
What's with that window down below
How about a little trade
Maybe you will catch him later
@IF RESPONSE IS 1 THEN DO
@BEGIN
@SHOW
`r0`c  `%`r1 Talking to the captain `r0

`\`2  "`0Depends.  We still have quite a few repairs to finish as you can see.
  We haven't been working to hard though, what with the trade we have been
  doing here`2."

`k  `2"`$So what might you be in the market for`2?"

`k  `2"`0Nothing you could be carrying in that bag of yours unless you have
  something in there to eat other then fish`2."

`k
@DO GOTO CAPTAIN
@END

@IF RESPONSE IS 2 THEN DO
@BEGIN
@DATANEWDAY SHIPWRK2.idf
@DATALOAD SHIPWRK2.idf &PLAYERNUM `p23
@SHOW
`r0`c  `%`r1 Talking to the captain `r0

`\`2  "`0Who Larkin?  Haw!  That feeble minded old fish face?  He is the reason
  we are here.  Tried to conjure up a wind to get us to port faster.  Instead
  we end up here on this rock.  You would think that the flagship of the
  Arrisville fleet would rate someone a little more competant`2."

`k`2  "`$So why do you keep him around`2?"

`k`2  "`0Well to be honest with you he is a powerful wizard.  The problem is he
  isn't as young as he once was and anytime he starts to feel his age he crawls
  inside a bottle.  Keep that in mind if he offers to teleport you somewhere`2."

`k
@DATASAVE SHIPWRK2.IDF &playernum 1
@DO GOTO CAPTAIN
@END

@IF RESPONSE IS 3 THEN DO
@BEGIN
@SHOW
`r0`c  `%`r1 Talking to the captain `r0

`\`2  "`0That's that lunkhead Larkin again.  After he conjured up the storm that
  put us here he figured he would to fix it.  Only thing he managed to cast a
  spell on was the window.  I thought he looked a little tipsy that evening`2."

`k
@DO GOTO CAPTAIN
@END

@IF RESPONSE IS 4 THEN GOTO TRADE
@END

@IF RESPONSE IS 5 THEN DO
@DRAWMAP
@UPDATE
@CLOSESCRIPT
@END

@#TRADE
@OFFMAP
@SHOW
`r0`c  `r1  `%Trading with the Captain  `r0

  `2The Captain's whole demeanor changes as he sets his mind to business.

@DO `v01 IS 1
@DO WRITE
`x`x
@CHOICE
Buy something
Sell something
Leave
@IF RESPONSE IS 1 THEN DO
  @BEGIN
  @do write
`\`\
  @BUYMANAGER
  05
  40
  55
  66
  36
  @DO GOTO TRADE
  @end

@IF RESPONSE IS 2 THEN DO
  @BEGIN
  @LABEL SELLING
  @SHOW
`r0`c  `r1  Trading with the Captain  `r0

`2  "`0Before you start let me make one thing clear, NO FISH`2!"

  `2You open your pack to show him what you have.

  `2You are holding `$$&money`2.

@DO WRITE
`x`x
@DO `v01 IS 1
@CHOICE
<`i08 1 <`i43 1 <`i51 1 <`p15 6 You have nothing to sell.
>`i08 0 Sell a Berry pie for `$$20`%. `2(you have `0`i08`2)
>`i43 0 Sell a chicken egg for `$$15`%. `2(you have `0`i43`2)
>`i51 0 Sell a small fuzzy animal for `$$1000`%. `2(you have `0`i51`2)
>`p15 5 Sell your Arrisville quest `2(Current value is `0$`p16`2)
>`i08 0 >`i43 0 >`i51 0 >`p15 5 Sell nothing.
>`i08 0 <`i43 1 <`i51 1 <`p15 6 Sell nothing.
<`i08 1 >`i43 0 <`i51 1 <`p15 6 Sell nothing.
<`i08 1 <`i43 1 >`i51 0 <`p15 6 Sell nothing.
<`i08 1 <`i43 1 <`i51 1 >`p15 5 Sell nothing.
>`i08 0 >`i43 0 <`i51 1 <`p15 6 Sell nothing.
>`i08 0 <`i43 1 >`i51 0 <`p15 6 Sell nothing.
>`i08 0 <`i43 1 <`i51 1 >`p15 5 Sell nothing.
<`i08 1 >`i43 0 >`i51 0 <`p15 6 Sell nothing.
<`i08 1 <`i43 1 >`i51 0 >`p15 5 Sell nothing.
<`i08 1 >`i43 0 <`i51 1 >`p15 5 Sell nothing.
>`i08 0 >`i43 0 >`i51 0 <`p15 6 Sell nothing.
>`i08 0 >`i43 0 <`i51 1 >`p15 5 Sell nothing.
>`i08 0 <`i43 1 >`i51 0 >`p15 5 Sell nothing.
<`i08 1 >`i43 0 >`i51 0 >`p15 5 Sell nothing.
@IF RESPONSE IS 2 THEN DO
  @BEGIN
  @SHOW
`\`\  `0"Ahhhh, just like home.  Thank you s&sir!"

`k
  @DO MONEY + 20
  @DO `i08 - 1
  @DO GOTO SELLING
  @END
@IF RESPONSE IS 3 THEN DO
  @BEGIN
  @SHOW
`\`\  `0"Seems like years since I had one of those."

`k
  @DO MONEY + 15
  @DO `i43 - 1
  @DO GOTO SELLING
  @END
@IF RESPONSE IS 4 THEN DO
  @BEGIN
  @SHOW
`\`\  `0"Careful now, I have people that would kill for one of those."

`k
  @DO MONEY + 1000
  @DO `i51 - 1
  @DO GOTO SELLING
  @END
@IF RESPONSE IS 5 THEN DO
  @BEGIN
  @DO `p25 is `p16
  @DO `p25 / 4
  @DO `p25 * 3
  @SHOW
`r0`c  `%`r1  Trading with the Captain  `r0
`\`\`2  "`0I can complete your quest for you.  I will give you `$$`p25`0 and save
   you the trip`2." `2(Current value is `0$`p16`2)

`k
@do write
`r0  `2Allow the Captain to finish you quest? [`0Y`2/`0N`2] :`x
@do readspecial `s01 YN
@if `s01 is Y then goto QUEST
@DO GOTO SELLING
@drawmap
@update
@closescript
@end

@drawmap
@update
@closescript
@end

@drawmap
@update
@closescript
@end


@#QUEST
;reset quest stuff
;give money
@do money + `p25
;add one to quests completed var
@do `p18 + 1
@do `p14 is 0
@do `p15 is 0
@do `p16 is 0
@do `p17 is 0
@do `i44 is 0
@do `i45 is 0
@do `i46 is 0
@do `i47 is 0
@do `i48 is 0
@DO GOTO SELLING
@END

@DO GOTO TRADE

@END
@DRAWMAP
@UPDATE
@END

@#BARREL
@BUSY
@DO MOVEBACK
@DATANEWDAY SHIPWRK1.idf
@DATALOAD SHIPWRK1.idf &PLAYERNUM `p22
@IF `p22 IS 1 THEN GOTO EMPTY
@DO `p20 RANDOM 4 1
@IF `p20 IS 1 THEN GOTO BARREL1
@IF `p20 IS 2 THEN GOTO BARREL2
@IF `p20 IS 3 THEN GOTO BARREL3
@IF `p20 IS 4 THEN GOTO BARREL4
@CLOSESCRIPT
@END

@#EMPTY
@DO SAYBAR
`$There is nothing here.
@END

@#BARREL1
@SHOW
`r0`c  `r1  `%Pirates treasure maybe?  `r0
`\`\`2  A sparkle catches your eye.

`k  `2You find a `$GEM

`k
@DO `p19 + 1
@datasave shipwrk1.idf &playernum 1
@DRAWMAP
@UPDATE
@END

@#BARREL2
@SHOW
`r0`c  `r1  `%Pirates treasure maybe?  `r0
`\`\`2  A movement catches your eye.

`k  `2You find a `0Sparking Green Salmon

`k
@DO `i30 + 1
@datasave shipwrk1.idf &playernum 1
@DRAWMAP
@UPDATE
@END

@#BARREL3
@SHOW
`r0`c  `r1  `%Pirates treasure maybe?  `r0
`\`\`2  A sparkle catches your eye.

`k  `2You find a `0Red Potion

`k
@DO `i52 + 1
@datasave shipwrk1.idf &playernum 1
@DRAWMAP
@UPDATE
@END

@#BARREL4
@SHOW
`r0`c  `r1  `%Pirates treasure maybe?  `r0
`\`\`2  A sparkle catches your eye.

`k  `2You find a `$GEM

`k
@DO `p19 + 1
@datasave shipwrk1.idf &playernum 1
@DRAWMAP
@UPDATE
@END

@#EXIT
@DATALOAD SHIPWRK.idf &PLAYERNUM `p21
@DO `p21 IS 0
@datasave shipwrk.idf &playernum 0
@LOADMAP 950
@DO x IS 46
@DO y IS 8
@DRAWMAP
@UPDATE
@closescript
@end

@#TELEPORT
@SHOW
`r0`c  `%`r1 Talking with the wizard `r0
`\`\`2  After a slight hesitation he says "`0I am not a side show magician doing
  parlor tricks to impress people little s&boy.  A wizard of my calibre demands
  a high price.  I can transport you to Arrisville for no less then `$$6,000`2."

`k`2  A ticket in PortTown cost $8,000.  You remember what the captain has told
  you and wonder if it is worth the chance.

`k
@do `v01 is 1
@do write
`x`x
@choice
>&money 5999 Give him the money. `!(You have `$$&money`!)
<&money 6000 Sorry but that is more then I can afford.
>&money 5999 Leave.
@IF RESPONSE IS 1 THEN GOTO TRAVEL
@END

@IF RESPONSE IS 2 THEN GOTO WIZARDTALK
@END

@IF RESPONSE IS 3 THEN GOTO WIZARDTALK
@END

;@DRAWMAP
;@UPDATE
;@CLOSESCRIPT
@END

@#TRAVEL
;YOU HAVE PAID YOUR MONEY
@DATANEWDAY SHIPWRK.idf
@DATALOAD SHIPWRK.idf &PLAYERNUM `p21
@DO `p21 IS 0
@datasave shipwrk.idf &playernum 0
@do `p20 random 4 1
@IF `p20 IS 1 THEN GOTO ARRIS
@IF `p20 IS 2 THEN GOTO ARRIS
@IF `p20 IS 3 THEN GOTO ARRIS
@IF `p20 IS 4 THEN GOTO FERRY
@END


@#ARRIS
@SHOW
`r0`c  `%`r1 Teleporting `r0
`\`\`2  The walls of the ship seem to fad around you...

`k`2  As your vision clears you realize you have arrived safely.

`k
@DO MONEY - 6000
@LOADMAP 444
@DO x IS 66
@DO y IS 18
@DRAWMAP
@UPDATE
@END

@#FERRY
@SHOW
`r0`c  `%`r1 Teleporting `r0
`\`\`2  The walls of the ship seem to fad around you...

`k`2  <Buuuurp>

`k`2  Larkin chooses that moment to uncork a huge belch and you realize that
  you may be in trouble.

`k
@DO QUEBAR
`$  Well we made it half way.  Could have been worse.
@LOADMAP 215
@DO x IS 59
@DO y IS 15
@DRAWMAP
@UPDATE
@END

@#NOMORE